
 1000  *---------------------------------
 1010  *      BASCALC FROM APPLE MONITOR
 1020  *---------------------------------
 1030  BASL   .EQ $28
 1040  BASH   .EQ $29
 1050  *---------------------------------
 1060  BASCALC
 1070         PHA          ARG = 000ABCDE
 1080         LSR          (A) = 0000ABCD, E IN CARRY
 1090         AND #3       (A) = 000000CD
 1100         ORA #4       (A) = 000001CD
 1110         STA BASH     HI-BYTE OF ADDRESS
 1120         PLA          (A) = 000ABCDE
 1130         AND #$18     (A) = 000AB000
 1140         BCC .1       MERGE IN E FROM CARRY
 1150         ADC #$7F     (A) = E00AB000
 1160  .1     STA BASL     BASL = E00AB000
 1170         ASL          (A) = 00AB0000, E IN CARRY AGAIN
 1180         ASL          (A) = 0AB00000, CARRY CLEAR
 1190         ORA BASL     (A) = EABAB000
 1200         STA BASL     LO-BYTE OF ADDRESS
 1210         RTS

